SUBROUTINE ACCPOS
C**** FINDS PROPER VERTICAL POSITION FOR ACCENT.
	COMMON /INTGRS/JACC,JTAIL,MRK,NTYPE,JSTEM,JWHOLE
	COMMON R2,JA,CENTR,J2,RJQ(20),J3,J4 /STF/RSTFAC(0/7),RSTJ2
	COMMON/ALF/INP(46),RST7,RST3,RSTX,RMINI,RINV,RA,RX,RJX,RJY,
	1 RB,RJW,RZ,JX,RG,KL,RJAC,K,L,RQ,RH,RZTM,RXX,JJJ

	RB=14.
	IF(MOD(J4,2).EQ.0)RB=21.
	IF(JSTEM.EQ.1)RB=-RB
C 1=STEM UP, 2=STEM DOWN
	RX=CENTR+RB*RSTJ2
	END